
sub main()
	dim s as string, s2 as string
	s = "Welcome Jose"
	msgbox("TEST: http")
	s2 = http.URLEncode(s)
	msgbox(s2)
	
	s2 = http.URLDecode(s2)
	if s == s2 then
		msgbox("RESULT: OK")
	end if

	s = "Welcome Jose"
	msgbox("TEST: Mime")
	s2 = mime.Base64Encode(s)
	msgbox(s2)
	
	s2 = mime.Base64decode(s2)
	if s == s2 then
		msgbox("RESULT: OK")
	end if

	msgbox(s)

	msgbox("TEST: MD5")
	s2 = Security.MD5(s)
	msgbox("MD5: " & s2)
end sub

